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NA base de datos se 
puede definir como 
un conjunto de datos 
interrelacionados 
que cumplen una se- 
rie de requisitos tec- 
nológicos en cuanto 
a su diseño lógico y a 
la organización de los datos en los sopor- 


tes físicos, lo que las distingue de los fi- ' 


cheros. 


Orígenes 


Inicialmente con la monoprograma- 
ción, las aplicaciones que utilizaban fi- 
cheros de datos solían tener sus propios 
datos, y en pocas ocasiones estos datos 
eran compartidos por otros programas. 
Al parecer la multiprogramación y produ- 
cirse un gran desarrollo en los sistemas 
operativos, se permitió que varias aplica- 


ADMINISTRADOR 
DELA 
BASE DE DATOS 


2 Cada uno de los usuarios de la base de 
| datos va a tener solamente una visión 
parcial de la base. El encargado de 
definir cada una de estas «visiones» es el 
administrador. 
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LAS BASES DE DATOS 


ciones se ejecutasen a un tiempo, sur- 
giendo así nuevos problemas. 


En una organización clásica de fiche- 
ros, un mismo conjunto de datos se en- 
cuentra en varios ficheros; los datos se re- 
cogen varias veces en distintos archivos. 
Esta redundancia, además de malgastar 
recursos, origina a menudo divergencias 
en los resultados, produce una ocupa- 
ción inútil de memoria secundaria y un 
aumento de los tiempos de proceso. 
Además, debido a que los datos se en- 
cuentran repetidos en más de un fichero, 
la actualización no se realiza de forma si- 
multánea provocando incoherencias. 

Esta duplicación de informaciones es 
lo que se conoce con el nombre de re- 
dundancia y las incoherencias provoca- 
das por tales redundancias producen lo 
que se llama inconsistencia de la infor- 
mación. 

Por otro lado, en la organización clási- 
ca de ficheros, la dependencia de los 
datos respecto a las aplicaciones es muy 
fuerte, provocando la reprogramación 
de dichas aplicaciones cuando se pro- 
ducen cambios en los datos. 


Aparición de las bases 
de datos 


El nacimiento de las bases de datos 
viene acelerado, precisamente por la 
aparición de la multiprogramación y to- 
dos los problemas que se derivan de la 
utilización de los ficheros. Se empieza a 
replantear la recogida y organización de 
los datos, de forma que constituyan un 
conjunto estructurado no sólo válido 
para una aplicación concreta, sino para 
satisfacer las necesidades de informa- 
ción global del usuario. 


VEIS dee. 
EOI Et 
FR . 


programa y los ficheros están íntimamente 
relacionados. 


[A En la organización clásica de ficheros, el 

Por tanto, podemos hacer una enume- 
ración de las caracteristicas principales 
que reunen las bases de datos: 


— Independencia de los datos y pro- 
gramas. Para implementar esta indepen- 
dencia es necesario hacer replantea- 
miento del concepto de información, 
analizando con más detalle su concepto 
y los métodos utilizados para represen- 
tarla. 


La información consiste en acumular 
ideas y hechos acerca de diferentes co- 
sas: personajes, lugares, herramientas, 
etcétera. Estas cosas se denominan enti- 
dades. 


) | MUNDO REAL 
eS 


OBJETOS 


ABSTRACCION 


MUNDO DE LAS IDEAS 


ORGANIZACION 


MUNDO DE LOS DATOS 
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lA Pasos en la recogida de informaciones. 


Es decir, se registra información sobre 
entidades que consta de: 


— Contexto. Define el ámbito de la en- 
tidad, es decir, el contexto es el mismo 
en entidades iguales, y diferente, si son 
distintas. 

— Datos. Marcan unos valores concre- 
tos para variables del ámbito de la enti- 
dad. 

— Representación de los datos. Indica 
el formato sobre el cual se representan 
los datos. 


En la práctica esta independencia nun- 
ca es absoluta, aunque se puede llegar 
a un nivel optimo a un coste elevado. 


— Coherencia de los resultados. Con 
la creación de las bases de datos, al uni- 
ficar todos los ficheros en uno único, se 
evitan duplicaciones y redundancias. 
Por otro lado, al no estar repetida la in- 
formación, las actualizaciones no produ- 


,cen inconsistencias. La integridad de los 


datos se facilitará al realizar todas las 
operaciones a través de un gestor. Las 
lecturas o escritura no se realizan direc- 
tamente desde los programas de las apli- 
caciones, sino que se realizan mediante 
un sistema de gestión de la base. 

— Se reduce el espacio de almacena- 
miento. No sólo al evitar las redundan- 
cias, sino también por la utilización de 
técnicas de comprensión de la informa- 
ción. Esto hace que aumente el volumen 
informativo (el valor informativo de la 
base de datos es superior a la suma del 
valor informativo de los elementos que la 
constituyen al estar éstos interrelaciona- 
dos). 


Los accesos a la base de datos se 
[A realizan a través del sistema de gestión, 
que es quien se encarga de la 
transferencia de informaciones entre los distintos 
programas y la base de datos. 
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No sólo existen ventajas en la utiliza- 
ción de las bases de datos, los principa- 
les inconvenientes de su implantación 
son: 


— Se requiere mayor protección de 
datos, ya que usuarios distintos deben 
acceder al mismo fichero. Las bases de- 
datos tienen que proveer de mayores 
controles de seguridad a la información. 

— Instalaciones costosas. Tanto en 
material (ordenadores potentes y dispo- 
sitivos de memoria secundaria con gran 
capacidad de almacenamiento) como 
en logical. 

— Personal especializado, difícil de 
encontrar, pero fácil de perder. 

— Implementación larga y difícil. 

— Rentabilidad a medio plazo. 


Una vez conocidas todas estas carac- 
terísticas podremos definir más exacta- 
mente una base de datos como: 

«Un conjunto de datos relacionados 
entre sí lógicamente con una definición 
común, almacenada junto con los datos, 
y con una cierta estructuración que per- 
mite su utilización por parte de múltiples 
usuarios. 


Operaciones típicas 
de una base de datos 


En una base de datos podremos hacer 
operaciones: 


— Sobre el conjunto de la base: 


— Creación. ) 
— Reestructuración. 
— Consulta de la totalidad. 


— Sobre registros aislados: 


— Inserción de datos. 
— Borrado. 

— Modificaciones. 
— Consulta selectiva. 


de Estructura de una base 
==" de datos 


Se distinguen la estructura lógica de la 
estructura física. La primera es la que el 
usuario define y por la que se rige para 
efectuar las consultas. La segunda es la 
forma en la que se encuentran los datos 


en el almacenamiento; es mucho más 
compleja que la otra debido a que se 
deben incluir los índices, encadena- 
mientos, etc. 

Los tres modelos más conocidos son: 


— Modelo jerárquico 


A Representación gráfica de una base de 
Bo. datos de tipo jerárquico. 


Tiene una estructura arborescente. Los 
distintos nodos muestran los elementos 
de la base de datos que, como sabemos, 
se denominan entidades. Cada nodo de 
nivel superior puede tener varios nodos 
relacionados a él en un nivel inferior (hi- 
jos), pero sólo pueden estar relaciona- 
dos con un nodo de nivel superior (pa- 
dre). 


— Modelo relacional 


Nombre D.N.!. Teléfono 
Atributo 4 | Atributo 2 | Atributo 3 


15.275.105 | 2306 72 


AGUSTIN | 9.745.835 2226630. 


Modelo relacional. Representación en 
forma de tabla. 


El concepto básico de este modelo es 
«la relacion» entre entidades. Se repre- 


sentan mediante unas tablas en las que 
las columnas son «los atributos», es decir, 
las propiedades o características de las 
entidades, y las filas, los valores que tie- 
nen dichos atributos. 


— Modelo en red 


las entidades y las flechas representan las 


[A Modelo en red. Los distintos nodos indican 
asociaciones o relaciones entre ellas. 


Es la combinación de varias jerarquías 
arborescentes, en la que un «hijo» puede 


tener varios «padres». Este modelo es mu- 
cho más flexible que los otros. Se repre- 
senta mediante conjuntos de anillos con 
un registro propietario y varios registros 
miembros, que pueden ser del mismo o 
distinto tipo. 


El sistema de gestión 
== de base de datos 


Un sistema de gestión de base de da- 
tos es un conjunto coordinado de progra- 
mas, procedimientos, lenguajes, etc., 
que suministra a los usuarios, informáticos 
o no, los medios necesarios para poder 
describir, manipular y recuperar los da- 
tos integrados en la base, asegurando su 
confidencialidad y seguridad. 

Las funciones esenciales de un sistema 
de gestión son: 


— Describir los elementos de datos, su 
estructura, sus relaciones y sus validacio- 
nes. 


El sistema de gestión de bases de da- 
tos utiliza diferentes tipos de lenguajes 
para manipular la base de datos. 


EMOS visto anterior- 
mente que el micro- 
procesador 8088, ma- 


de memoria siguien- 
tes: 
— Area de código. 
— Area de datos 


origen. 

— Area de datos destino. 

— Area de la pila de ejecución. 

Pues bien, es de esta última área de la 
que vamos a tratar a continuación. 

Empezaremos por definir el concepto 
de «pila» y diferenciarlo del concepto de 
«Cola». Nos ayudaremos para ello de los 
siguientes ejemplos: 

Imaginemos la situación que se produ- 
ce cuando llegan a un peaje por el que 
tienen que pasar de uno en uno, más ve- 
hículos de los que se puede atender. En 
ese caso los vehículos se disponen for- 
mando una «cola». Las colas funcionan 
con la regla: «el primero en llegar es el 
primero en salir». A esta regla se la cono- 
ce como regla FIFO («first-in first-out»). 


orden de entrada en la COLA: A, B, € | 


orden de salida de la COLA: A, B, C 


Supongamos ahora el caso en que una 
serie de vehiculos embarca en un ferry 


neja las cuatro áreas 
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LA PILA DE EJECUCION 


estrecho y largo con una puerta de em- 
barque única. A la hora de desembarcar 
no se puede usar la regla anterior porque 
cada vehículo que llega impide la salida 
de todos los que llegaron antes que él. 
En este caso hay que emplear la regla «el 
último en llegar es el primero en salir», 
que se conoce con el hombre LIFO («last- 
in first-out»). A la disposición de los ve- 
hículos dentro del ferry, como a todas las 
que presenten estas características, se 
las denomina «pila». 


pr A 
orden e ibi en la PILA: A, B, € | 
a TOS 


orden de salida de la PILA: C, B, A 


El 8088 controla directamente, de 
acuerdo con la regla LIFO, un área de 
memoria que recibe el nombre de'pila 
de ejecución o STACK. Este área es una 
característica muy importante de la pro- 
gramación con el 8088, que facilita la es- 
critura de programas recurrentes, es de- 
cir, de programas que pueden llamarse 
a sí mismos un determinado número de 
veces. 

El área de memoria stack está direccio- 
nada como ya se dijo, por la pareja de 
registros SS y SP. Esto quiere decir que el 
microprocesador calcula la dirección fíi- 
sica de memoria tomando el SS como re- 


gistro de segmento y el SP como registro 
de desplazamiento. 

En la programación normal, las instruc- 
ciones que usan la pila se ejecutan siem- 
pre por parejas. Primero se ejecutan las 
instrucciones que «salvan» información 
en la pila y después se ejecutan instruc- 
ciones que «recuperan» dicha informa- 
ción. La forma más normal de programar 
es dividir el programa principal en módu- 
los elementales (llamados rutinas). Cada 
módulo usa la pila salvando y recuperan- 
do la misma cantidad de información, de 


ORIGEN DE LA PILA 


—= 
3A5C:0000 


FIW DE LA PILA 


Si se ejecuta una instrucción que «sal- 
va» una palabra (dos bytes) en la pila se 
pasa al estado 2. La transición se realiza 
en dos pasos: primero se decrementa en 
dos unidades el registro SP (que pasa a 
tomar el valor 0006) y después se escri- 
be la palabra que se desea guardar (su- 
pongamos que sea 12 34) en la direc- 
ción definida por SS:SP. 

Si a partir de esta situación se ejecuta 
una instrucción que «recupera» una pa- 
labra de la pila, se pasa al estado 3. Este 
tipo de instrucciones se realiza también 
en dos pasos: primero se recupera la pa- 


INSTRUCCION 
QUE SALVA 

UNA PALABRA 
EN UNA PILA 


forma que al terminar la ejecución de 
cada módulo la pila se encuentre en la 
misma situación que cuando empezó. 

En la siguiente figura se muestran los es- 
tados de la pila en tres instantes diferen- 
tes. El estado 1 es el estado en que se en- 
cuentra la pila en un momento determi- 
nado. Supongamos que en ese instante 
el registro SS contenga 3A5C que indica 
la situación de la pila en la memoria y 
que el registro SP contenga el valor 0008 
que apunta al último byte ocupado de la 
pila. 


PILA LIBRE : 
PILA LIBRE 


INSTRUCCIONES 
ESTADO || QUE RECUPERA 
2 UNA PALABRA 
DE LA PILA 


labra apuntada por SS:SP (en nuestro 
caso 12 34) y después se incrementa el 
registro SP en dos unidades, pasando así 
a valer 0008. 

Hay varias instrucciones que «salvan» 
información en la pila y otras tantas que 
«recuperan» la información previamente 
salvada. Estas instrucciones, que en la 
programación aparecen normalmente 
emparejadas, son las siguientes: 

— La pareja PUSH y POP. 

— La pareja PUSHF y POPF. 

— La pareja CALL y RET. 

— La pareja INT e IRET. 
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En algunos casos se «salva» una pala- 
bra en la pila, como en las instrucciones 
PUSH, PUSHF y CALL tipo «near»; en las ins- 
trucciones CALL tipo «far» se «salvan» dos 
palabras y en las INT se «salvan» tres pala- 
bras. 

En las instrucciones asociadas se «recu- 
pera» la misma cantidad de información. 
Es decir, una palabra en POP, POPF y RET 
tipo «near»; dos palabras en las instruc- 
ciones RET tipo «far» y tres palabras en las 
instrucciones IRET. 

Los mecanismos por los que se «salvan» 
y «recuperan» dos o tres palabras son los 
mismos que los explicados para una pa- 
labra, pero repetidos dos o tres veces en 
la instrucción. 

A continuación vamos a explicar con 
detalle estas instrucciones. 


¡O Instrucciones PUSH y POP 


Son dos instrucciones independientes 
que vamos a tratar simultáneamente, ya 
que realizan funciones una inversa de la 
otra y en los programas se emplean nor- 
malmente emparejadas. 

La instrucción PUSH sirve para «salvar» 
(es decir, guardar) una palabra en la pila. 
El funcionamiento es el siguiente: prime- 
ro se decrementa en dos unidades el re- 
gistro SP y después se guarda la palabra 
en la dirección referenciada por SS:SP. 

La instrucción POP sirve para «recupe- 
rar» (es decir extraer) una palabra de la 
pila. La palabra se extrae de la dirección 
referenciada por SS:SP y después se in- 
crementa en el registro SP en dos unida- 
des. 

Estas instrucciones tienen los formatos 
siguientes: 


[etiqueta] PUSH origen 
[etiqueta] POP destino 


Recordemos que en éste, como en los 
demás formatos que vamos a utilizar, se 
emplean los siguientes convenios: lo es- 
crito con minúsculas son nombres que 
deben ser elegidos por el programador; 
lo escrito con mayúsculas son nombres 
que deben ser codificados como se indi- 
ca; y lo encerrado entre corchetes son 
elementos opcionales que pueden ser 
omitidos. 

Las etiquetas son opcionales como en 
todas las instrucciones ejecutables y se 
pueden emplear para dar un nombre a 
las instrucciones que vayan a ser referen- 
ciadas desde otras instrucciones del pro- 
grama. 

PUSH y POP son los códigos de opera- 
ción. 

Y «origen» y «destino» son los operan- 
dos asociados a estas dos instrucciones. 
El operando «origen» de la instrucción 
PUSH define de dónde se debe extraer la 
palabra que se desea «salvar» en la pila. 
El operando «destino» de la instrucción 
POP define dónde se debe guardar la pa- 
labra que se quiere «recuperar» de la 
pila. 

Estos operandos pueden ser: 


— Registros (AX, BX, CX, DX, SI, DI, SP O 
BP). 
— Registros de segmento (DS, ES, SS o 
CS) excepto el CS en la instrucción POP. 

— Referencias explícitas a la memoria 
en cualquiera de las formas que se han 
explicado. 


Veamos un trozo de programa que usa 
instrucciones PUSH y POP: 


, para abreviar, a la dirección actual de la pila SS1SP 
sI y 1.- Se salva SI en X-2 
AX y 2.- Se salva AX en X-4 
DS 3 3.- Se salva DS en X-6 
ALFA [SII [BXJ 3 4.- Se salva una palabra en X-8 
3 


DI 5.- Se salva DI en X-10 


LLamemos X 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 

j La pila apunta ahora a la dirección X-10 

3 Se ejecutan ahora instrucciones intermedias que no alteran la pila. 


POP 
POP 
POP 
POP 


DI 
BETA [DIJ [(BPJ 
ES 


5 6.- Se recupera DI de X-10 

3 7.- Se recupera una palabra de X-8 
3 8.- Se recupera ES de X-6 
3 


BX 9.- Se recupera BX de X-4 


En este ejemplo, la palabra contenida 
en el registro AX se recupera en el regis- 
tro BX. La palabra contenida en el regis- 
tro DS termina transferida al registro ES. La 
palabra contenida en la dirección de 
memoria ALFA (SI) (DI) acaba en la direc- 
ción de memoria BETA (DI) (BP). Por último 
los registros Sl y Dl recuperan sus valores 
aunque en las instrucciones intermedias 
se hubieran alterado los mismos. 


O Instrucciones PUSHF y POPF 


Estas dos instrucciones realizan funcio- 
nes una inversa de la otra. 

La instrucción PUSHF sirve para «salvar» 
en la pila la palabra de estado de los 
flags. Antes de salvarlos decrementa en 
dos unidades el registo SP y después 
guarda los flags en la palabra direccio- 
nada por SS:SsP. 


5 LLamemos X, para abreviar, 
PUSHF 

AX 

FLAGS_ANTIGUOS, AX 


Obsérvese que se han emparejado por 
un lado las instrucciones PUSHF y POP y 


POP SI 310.- Se recupera SI de X-2 
5 La pila queda apuntando de nuevo a la dirección X 


a la dirección actual de la pila SS:SP 
3 Se salvan los flags en X-2 . 

3 Se recupera AX con el contenido de X-2 

3 La pila apunta de nuevo a la dirección X 

j Se guarda AX en una palabra de memoria 


3 Se copia una palabra de memoria en BX 
y Se salva BX en X-2 

3 Se recuperan los flags con el contenido de X-2 
y La pila apunta de nuevo a la dirección X 


La instrucción POPF sirve para «recupe- 
rar» de la pila una determinada configu- 
ración de los flags. Se extraen de la pa- 
labra direccionada por SS:SP y después se 
incrementa el registro SP en dos unida- 
des. 

Los formatos de estas instrucciones son 
los siguientes: 


[etiqueta] PUSHF 
[etiqueta] POPF 


La etiqueta es opcional. PUSHF y POPF 
son los códigos de operación. Y como se 
observa, son instrucciones que no llevan 
operandos. 

En el siguiente ejemplo se dan una se- 
rie de instrucciones que permiten copiar 
los flags activos en una palabra de me- 
moria (denominada aquí FLAGS.ANTI- 
GUOS) y definir un nuevo juego de flags 
a partir de otra palabra de memoria (de- 
nominada aquí NUEVOS.FLAGS): 


por otro lado las instrucciones PUSH y 
POPF. 


se Programa: 
jm letras gigantes 


AMOS a ver a conli- 
nuación un programa 
que nos permitirá im- 
primir caracteres 
ocho veces más 
grandes de lo normal. 
Este programa utiliza 
su propio juego de 
caracteres, distinto del de la máquina en 
la que se instale. 

Aunque el programa está escrito en BA- 
SIC, es lo suficientemente rápido como 
para poderlo utilizar como una rutina en 
nuestros programas. 

Los mensajes que este programa nos 
permite imprimir pueden ser de varios ti- 
pos, dependiendo del valor que le de- 
mos a la variable SW. Estos son: 


LIGE EL TIFO = 


A Todos los tipos de impresión que soporta el 
— programa. 


SW = 1 — Impresión normal. 

SW = 2 — Impresión invertida. Se dibu- 
jan los contornos de cada letra. 

SW = 3 — Impresión normal, donde los 
caracteres están formados por asteris- 
cos. 

SW = 4 — Impresión invertida, donde los 
contornos de los caracteres están forma- 
dos por asteriscos. 
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SW = 5 —Impresión normal, donde los 
caracteres están formados por un carác- 
ter que nosotros elijamos y que tiene que 
estar almacenado en L$. 

SW = 6 —Impresión invertida, donde los 
contornos de cada carácter están forma- 
dos por un carácter que nosotros elija- 
a y que ha de estar almacenado en 
LS. 
SW = 7 — Impresión normal, donde 
cada letra está formada por el mismo ca- 
rácter que intenta representar. 

SW = 8 — Impresión invertida, donde el 
contorno de cada letra está formado por 
letras que son las mismas que la letra aye 
se intenta representar. 


Modo = 1 


PULSA UMA TECLA PARA 
INTRODUCIR OTRO MENSAJE 


[A Ejemplo del Modo 1. 


lA Ejemplo del Modo 2. 


El mensaje a representar ha de iralma- del mensaje en la pantalla, en las coor- 
cenado en la variable AS, y la posición denadas X e Y. 


8000 
8010 
38020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
38370 
8380 
8390 
8400 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 
8710 


REM SOSA SOS IS PSSS ISSO” SSI” RSS SOS” SEIS” E SISSI” lOjok ok 
REM x k 
REM * D EEEEEE TTTTTT RRRRR AAAA RS k 
REM * L E ETT RA AS Ss k 
REM * L E - TE A RA AS k 
REM * L EEEE TT RRRRR AAAAAA S35S k 
REM * E E: TT RRR A A Ss k 
REM * L E E TT RER 4 AS S k 
REM x* LLLLLL REEEEE. TITT R RR A A SSSS k 
REM *x * 
REM * GGGG  IIIIII GGGG AAAA N N TTTTTT EEEEEE SSSS k 
REM * G G 11 G GA A NN MEET TI ES a 
REM * G El G A ANN N Tr E E Ss k 
REM* G GGG TI G GGG AAAAAA N NN N TE EEEE Sssss xk 
REM * G G yde G GA AN NN E E E S * 
REM * G G yl G GA AN NN TT E ES S *x 
REM x* GGGG IIIITI GGGG A A N N TTTT EEEEEE SSSS xk 
REM * k 
REM RSS OSOS SOS SOS IS SISSI ISSO” ISSO jojojo: 
REM 
REM as lSS OSEA OSOS OSOS ISSO SOS SOS lolo ROJO 
REM * LECTURA DE LAS DATAS Y ALMACENAMIENTO * 
INE E Es 
REM 
DEF FNZ=16x(INSTR(Z$,MID$(B$, 1,1))-1)+INSTR(Z3,MID$(B$, 2,1))-1 
LET Z$="0123456789ABCDEF" 
DIM N$(24) 
LET T=0 
LET L=9070 
FOR I=1 TO 24 

READ A$,A 

FOR J=1 TO LEN(A$) STEP 2 

LET B$=MID$(A$,J,2) 
LET T=T+FNZ 

NEXT J 

IF T<>A THEN PRINT "ERROR EN LA LINEA ";L:END 

LET T=0 

LET L=L+20 

LET N$(1)=A$ 
NEXT 1 
RETURN 
REM 
REM MSSSISO SSI jSISlOlSlOlSlOlO lok 
REM * PROGRAMA PRINCIPAL * 
REM ASOMO MISS lSSlSSlO lO lOlOIOJOIOJK 
REM | 
IF SW<2 THEN LET M$=CHR$(219):LET W$=" " 
IF SW=2 THEN LET M$=" ":LET W$=CHR$(219) 
IF SW-=3 THEN LET M$="x":LET W$=" " 
IF SW=4 THEN LET M$=" ":LET W$="x*" 
IF SW=5 THEN LET M$=L$:LET W$=" " 
IF SW=6 THEN LET M$=" ":LET W$-=L$ ' 
FOR I=1 TO LEN(A$) 

LET N=ASC(MID$(A$,1,1)) 

IF SW=7 THEN LET M$=CHR$(N):LET W$=" 

IF SW>7 THEN LET M$=" ":LET W$=CHR$(N) 

LET N=N-31 


LET L=INT(N/4)+1 
LET P=N-4x(L-1) 
LET P=(P-1)*16+1 
IF P<O THEN LET L=L-1:LET P=49 
FOR J=1 TO 8 
LOCATE Y+J-1,X 
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8720 
8730 
8740 
8750 
8760 
8770 
8780 
8790 
8800 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 


LET B$-MID$(N$(L),P+2*J-2, 2) 
LET A=FNZ 
IF A>=128 THEN LET A=A-128:PRINT M$;:GOTO 8760 
PRINT W$; 
IF A>=64 THEN LET A=A-64:PRINT M$;:GOTO 8780 
PRINT W$; 
IF A>=32 THEN LET A=A-32:PRINT M$;:GOTO 8800 
PRINT W$; 
IF A>=16 THEN LET A=A-16:PRINT M$;:GOTO 8820 
PRINT Ws$; 
IF A>=8 THEN LET A=A-8:PRINT M$;:GOTO 8840 
PRINT W$; 
IF A>=4 THEN LET A=A-4:PRINT M$;:GOTO 8860 
PRINT W$; 
IF A>=2 THEN LET A=A-2:PRINT M$;:GOTO 8880 
PRINT W$; 
IF A=1 THEN PRINT M$;:GOTO 8900 
PRINT Ws$; 
PRINT 
NEXT J 
LET X=X+8 
IF X>80 THEN LET X=1:LET Y-Y+8 
NEXT 1 
RETURN 
REM 
REM MOSSOS SOS SS SOS iO OJO OKOk 


REM * LINEAS DE DATAS CON NUMEROS x* 
REM * EN HEXADECIMAL CON LA DEFI- * 

REM * NICION DE LOS CARACTERES. * 

REM ASNSSSS SSI SS OSOS OOOO” lalalala look 

REM 

DATA "000000000000000018181818180018006C6C6C00000000006C6CFE7CFE6CECOO" 
DATA 1532 

DATA "183E583C1A7C18000063660C18336300386C3876DCDC76001818300000000000" 
DATA 1787 

DATA "0C18303030180C0030180C0C0C18300000663CFF3C6600000018187E18180000" 
DATA 1197 

DATA "00000000001818300000007E000000000000000000181800060C183060C08000" 
DATA 776 

DATA "7CC6CED6E6C67C001838181818187E003C66063C60667E003C468061C08663C00" 
DATA 2480 j 

DATA "18385898FE183C007E62603C06663C003C886607C868663C007E48060C18181800"” 
DATA 2138 

DATA "3C66663C66663C003C66663E06663C0000001818001818000000181800181830" 
DATA 1322 

DATA "0C18306030180C0000007E00007E00006030180C183060003C66060C18001800" 
DATA 1092 

DATA "7CC6DEDEDECO7C00183C66667E668600FC668667C68666FC003C66C0C0C0B63C00" 
DATA 3858 

DATA "F86C6666666CF800FE6268786862FE00FE62687886860F0003C66COCOCEC67E00" 
DATA 4142 

DATA "6666667E6686856007E18181818187E001E0C0C0CCCCC7800E6666C786C66E800" 
DATA 2704 : 

DATA "F06060606266FEOOCSEEFEDSDECECSOOCBESFEBDECECECEBOO38ECCECECEECIBOO" 
DATA 4918 : 

DATA "FC6666786060F000386CC6C6DACC7600FC66667C6C66E2003C66603C06663C00" 
DATA 3610 

DATA "7E5A181818183C0086666686666663C00666666866663C1800C6C6C6DSFEEEC600" 
DATA 3136 

DATA "C66C383886CC68C6006668663C18183C00FEC68C183268FE003C30303030303C00" 
DATA 2778 

DATA "C06030180C0603013C0C0C0C0C0C3C00183C7E181818180000000000000000FF" 
DATA 1123 

DATA "0030180C000000000000780C7CCC7600E0E07C6686666BC0000003C6860663C00" 
DATA 2148 

DATA "1C0C7CCCCCCC760000003C667E603C001C3630783030780000003E8668663E067C" 
DATA 2262 

DATA "E0606C766866E6001800381818183C0002000E0560666563CE0608686C786CE600" 


9440 DATA 2472 


9460 DATA 2274 


9480 DATA 2678 


9500 DATA 2246 


9520 DATA 1802 


9540 DATA 1856 


NA | Ejemplo ael Moao 3. 


El programa se ha realizado en un IBM 
pc WGBASIC. Esto significa que cualquier 
ordenador que disponga de esta versión 
de BASIC, puede utilizar este programa 
sin ningún cambio. Para los usuarios del 
MSX, AMSTRAD y COMMODORE se propo- 
nen los siguientes cambios: 


9450 DATA "3818181818183C0000006CFED6D6C6000000D8666666660000003C6666663C00" 
9470 DATA "0000DC66667C60F0000076CCCC7COC1EO0000D86C6060F00000003C603C067C00" 
9490 DATA "30307C3030361C000000666666663E0000006666663C18000000C6D6D6FE6C00"” 
9510 DATA "0000C66C386CC60000006666663E0867C00007E4C18307E000E18187018180E00" 


9530 DATA "18181818181818007018180E1818700076D8000000000000CC33CC33CC33CC33" 


COMMODORE 


8240 REM 

8330 GOSUB 9600: LET T=T+R 

8550 IF SW<2 THEN LET M$=CHR$ (166): 
LETWS=” ” 

8560 IF SW=2 THEN LET M$=" “: LET 
WS$=CHRS$ (166) 

8710 POKE 214, Y+J-1: POKE 211, X 

8730 GOSUB 9600: LET A=R 

8930 IF X>40 THEN LET X=1: LET Y=Y+8 


También hay que incluir el siguiente 
grupo de lineas. 


9600 REM 

drid A E 

9620 REM * PASO DE HEXADECIMAL A DE- 
CIMAL * 

O ERE doin ica 

9640 REM 

9650 LET R=0 

9660 FOR K=1 TO 2 

9670 FOR 0=1 TO 16 

9680 IF MID $ (Z$, O, 1) <> MIDS (BS, K, 
1) THEN GOTO 7600 

9690 LET R=R+INT ((0-1)'(16”(2-K) +0.5: 
LET O=16 

9700 NEXT 0 

9710 NEXT K 

9720 RETURN 


MSX 


8710 LOCATE X, Y+J-1 
8930 IF X>40 THEN LET X=1: LET Y=Y+8 
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AMSTRAD 


8550 IF SW<2 THEN LET M$=CHRS (143): 
LET WS$=” ” 

8560 IF SW=2 THEN LET M$=” ”: LET 
WS$=CHR$ (143) 

8710 LOCATE X, Y+J-1 


El programa no es válido para los usua- 
rios del SPECTRUM, para ellos se ha reali- 
zado el programa numero 2. 


Ejemplo del Modo 5 usando el carácter al- 
mohadilla (+). 


I 


lA 


| 


A Ejemplo del Modo 6 usando el carácter al- 
mohadilla (+). 


Para utilizar esta rutina, antes de impri- 
mir ningún mensaje, hay que inicializarla. 
Esto se consigue haciendo una llamada 
a la línea 8000. Esta llamada sólo hay 
que hacerla una vez en el programa. 


Cuando la rutina retorne, ya está lista 
para ser utilizada. Los datos que hay que 
mandarla para que funcione son los si- 
guientes: 


A$ = Mensaje a imprimir. 

SW = Tipo de impresión. 

X= Coordenada en X, donde se empe- 
zará a imprimir. 

Y = Coordenada en Y, donde se empe- 
zará a imprimir. 

Si el valor de SW es igual a 5 o a 6, en- 
tonces la variable L$ ha de tener alma- 
cenado el carácter con el que queremos 
dibujar. 


Ejemplo del Modo 8. 


A continuación se propone el progra- 


ma número dos para que se vea cómo 
funciona y cómo utilizar esta rutina. 


100 REM aMSN SISSI 
110 REM * PROGRAMA DEMO PARA EJECUTAR * 
120 REM * LA RUTINA DE LETRAS GIGANTES * 
130 REM ARMSMSSSSSSSSSSOS SiS ES dSSESO OSO OlSlEjolOOJOKk 
140 REM 

150 CLS 

160 PRINT "CARGANDO DATAS. " 


PRINT "ESPERE UN MOMENTO. "” 
GOSUB 8000 

CLS 

INPUT "MENSAJE 
INPUT?" 
INPUT: 

CLS 

PRINT 

PRINT ” IMPRESION" 
PRINT 
PRINT 
PRINT " 
PRINT * 
PRINT " 
PRINT ' 
PRINT." 
PRINT ' 
PRINT ' 
PRINT ' 


IMPRESION NORMAL" 

IMPRESION IMVERTIDA" 

NORMAL DE ASTERISCOS” 

INVERTTIDA DE ASTERISCOS" 

NORMAL DE UN CARACTER A ELEGIR" 
INVERTIDA DE UN CARACTER.A ALEGIR" 
NORMAL Y CADA LETRA CON SU CARACTER" 
INVERT. Y CADA LETRA CON SU CARACTER" 


DIDOADNA 
¡nou...wuwnaus.on 


PRINT 

PRINT "ELIGE EL TIPO = "; 
LET B$=-INKEY$ 

IF B$="" THEN GOTO 380 


IF B$<"1" OR B$>"8" THEN GOTO 380 


PRINT B$ 
PRINT:PRINT 
LET SW=VAL(B$) 


IF SW-=5 OR SW=6 THEN INPUT "CARACTER= ";L$ 


PRINT 


PRINT “PULSA UNA TECLA PARA EMPEZAR" 


LET B$=INKEY$ 

IF B$="" THEN GOTO 470 
CLS 

GOSUB 8500 

PRINT 


PRINT "PULSA UNA TECLA PARA" 
PRINT "INTRODUCIR OTRO MENSAJE" 


LET B$=INKEY$ 
IF B$="" THEN GOTO 540 
GOTO 190 


Para que el programa funcione en el 
COMMODORE hay que realizar los si- 
guientes cambios: 


COMMODORE 


150 PRINT CHR$ (147) 
190 PRINT CHR$ (147) 
230 PRINT CHR$ (147) 
380 GET B$ 
470 GET BS 
490 PRINT CHR$ (147) 
540 GET BS 


Programa ampliador de 
caracteres para Spectrum 


El siguiente programa nos va a 
permitir tener caracteres ampliados en 
nuestro SPECTRUM. Estos caracteres po- 
drán ser: 


— El doble de ancho. 

— El doble de alto. 

— El doble de alto y el doble de an- 
cho. 


El programa no necesita de muchas ex- 
plicaciones, ya que todas están inclui- 
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das en el programa. Lo único que hay mos el código máquina que este progra- 
que decir es que primero hace falta in- ma genera a continuación del programa 
troducir el programa 4. Una vez que to-- 3. Este programa cargará este código 
das las líneas DATA estén correctamente máquina y nos hará una demostración 
escritas y el programa funcione, graba- de su funcionamiento. 


1 DEF FN p(a,b,c,a$)=USR 50000 
10 BORDER O: PAPER O: INK 7: FLASH O: INVERSE O: BRIGHT O 
20 CLEAR 49999: GO SUB 1000 
30 FLASH 1: RANDOMIZE FN p(2,0, 4, "AMPLIACION DE CARACTERES") 
40 FLASH O > 
50 RANDOMIZE FN P(0, 4,6, "Esto es un”) 
60 RANDOMIZE FN p(0,6,6,"ejemplo de”) 
70 RANDOMIZE FN p(0,8,5, "utilizacion”) 
80 GO SUB 2000 
90 CLS 
100 PRINT "Los caracteres se pueden....' 
110 RANDOMIZE FN p(1, 4,8, "ALARGAR") 
120 RANDOMIZE FN P(2,7,10, "ENSANCHAR") 
130 RANDOMIZE FN P(0,10,0,"0 LAS DOS COSAS") 
140 GO SUB 2000 
150 CLS 
160 PRINT "Hay tres modos de ampliacion: " 
170 RANDOMIZE FN p(1,4,2,"“MODO 1-ALARGAR") 
180 RANDOMIZE FN P(2,7,7,"MODO 2-ENSANCHAR") 
190 RANDOMIZE FN P(0,10,1,"MODO O-EL DOBLE") 
200 GO SUB 2000 
210. CLS 
220 PRINT "Para utilizarlos debe de usar: " 
230 PRINT : RANDOMIZE FN P(2,3,1,"LET A=FN P(MODO, X, Y, ""TEXTO"")") 


240 PRINT *”””* "Teniendo una linea que diga: " 

250 RANDOMIZE FN p(2,8,2,"1 DEF FN P(A,B,C,A$)=USR 50000") 
260 PRINT *”*”*"Y cargando el codigo maquina con" 

270 RANDOMIZE FN p(2,13,2,"LOAD """" CODE 50000, 389") 

280 PRINT **””* "Por supuesto, habiendo hecho" 

290 RANDOMIZE FN p(2,18,2,"CLEAR 49999") 

300 PRINT ***”*"Antes del LOAD """"CODE " 

310 GO SUB 2000 

320 CLS 


,330 PRINT "Los puede poner con los atribu- tos que quiera,mediante INK y PA 
PER como siempre.” 
SAO FOR SL 107 
350 PAPER 8-i: INK i 
360 BEEP .1,1/5: RANDOMIZE FN p(2,11,6,"ESTA CLARO SI O NO ?") 
370 NEXT I 
380 IF INKEY$="" THEN GO TO 340 
390 BRIGHT 1: INVERSE 1 
400 INK 7: PAPER O 
410 RANDOMIZE FN P(2,14,5, "MUY BIEN, HASTA LUEGO!!!”) 
420 BRIGHT O: INVERSE O 
430 FOR G=1I TO 100: NEXT G 
440 GO SUB 2000 
. 999 STOP 
1000 REM CARAGA LOS DATA DEL CODIGO MAQUINA 
1020 LOAD ""CODE 50000, 389 
1030 RETURN 
2000 REM MENSAJE *PULSA UNA TECLA” 
2020 FLASH 1 
2030 RANDOMIZE FN P(1,23,1, "PULSE UNA TECLA") 
2040 FLASH O 


2050 IF INKEY$="" THEN GO TO 2050 
2060 RETURN 


AMPLIACION DE CARACTERES 


Esto es un 
ejemplo de 
Wticizacion 


Hay trez modos Je ampliacion 


1000 LL AMM A AR O A A 


MODO 2-ENSANCHAR 
MODO 0O-EL DOBLE 


A ESA RR MA A E 
PULL oc .n str TECLA 


Presentación del programa de ampliación 
de caracteres. 


Yo, caracteres 24€ pueden.... 


FA A AR O AA 


ENSANCHAR 
O LAS DOS COSAS 


PULSE IAS TECLA 


Para utilizarios debe de usar: 


LET A=FN P(MODO,X,Y,"TEXTO") 
Teniendo una linea que diga: 
1 DEF FN P(A,B,C,A$) =USR 50000 : 
Y cargando el hn maquina con ESTA CLARO 51 0 NO ? 
LOAD "" CODE 50000,389 MUY BIEN,HASTA LUEGO!!! 
Por supuesto, habiendo recho 
“CLEAR 49999 


cla A evise y TECLA 
PULSE UnA TECLA ; ce. 


20 PROGRAMAS 


1 DEF FN P(A,B,C,A$)=USR 50000 
10 REM ASRSSRSSSNS RS SiS SiS SSSSSlSROOOK 
20 REM *PROGRAMA CARGADOR DELx* 
30 REM *CODIGO MAQUINA DEL X 
40 REM *PROGRAMA DE AMPLIA- X* 
50 REM *CION DE CARACTERES  * 
80 REM AdSSSSSSSISSIOSSRES SOON OKOK 
70 REM 
80 RESTORE 6000 
90 CLS : LET LIN=8000 
100 PAPER 0: INK 6: BORDER O 
110 CLEAR 49999 
120 PRINT AT 7,9; FLASH 1;"CARGANDO DATAS" 
130 PRINT AT 10,8; FLASH 1; INVERSE 1;"ESPERA UN MOMENTO" 
140 FOR I=1 TO 392 STEP 8 
150 LET CHEK=0 
160 FOR J=1 TO 1+7 


170 READ A 
180 LET CHEK=CHEK+A 
190 POKE 49999+J,A 


200 NEXT J 

210 READ TOT 

220 IF TOT<>CHEK THEN GO TO 1000 

230 LET LIN=LIN+10 

240 NEXT 1 

250 CLS 

260 RANDOMIZE FN P(1,1,2,"CODIGO MAQUINA") 

270 RANDOMIZE FN P(1,3,3, "CARGADO EN.LA”) 

280 RANDOMIZE FN P(1,5,9, "MEMORIA. ") 

290 RANDOMIZE FN P(2,10,0, "INTRODUCE UNA CINTA VIRGEN EN EL") 
300 RANDOMIZE FN P(2,12,1,"CASETE Y PONLO EN POSICION DE”) 
310 RANDOMIZE FN P(2,14,3,"GRABACION (RECORD Y PLAY). ") 
320 RANDOMIZE FN P(1,19,1,"PULSA UNA TECLA") 

330 RANDOMIZE FN P(1,21,1,"CUANDO LO HAGAS") 

340 PAUSE O 

350 SAVE "CODIGO"CODE 50000, 389 

360 GO TO 9999 

1000 CLS 

1010 PRINT "ERROR EN LA LINEA ...” 

1020 PRINT " "¡LIN 

1030 PRINT 

1040 PRINT "REPASA LAS LINEAS DATA" 

1050 LIST LIN 


8000 DATA 221,42,11,92,221,70,31,221,909 
6010 DATA 78,30,221,86,29,221,94,28,787 

6020 DATA 221,102,12,221,110,20, 58, 141,885 
8030 DATA 92,8,120,177,32,2,207,2,640 

6040 DATA 125,254,32,210,35,196,124,254,1230 
6050 DATA 24,210,35,196,205,37,196,221,1124 
68080 DATA 126,4,31,56,92,31,56,51,447 

6070 DATA 197,213,229,205,9,196,6,8,1063 
6080 DATA 205, 191,196,205,191,196,213,26, 1423 
6090 DATA 205,106, 196,205,93,196,205,74, 1280 
6100 DATA 196,205,93,196,205,74,196,209,1374 
6110 DATA 19,16,235,225,205,150,196,205, 1251 
6120 DATA 150,196,209,193,19,11,120,177,1075 
6130 DATA 32,206,201,197,213,229,205,9, 1292 
6140 DATA 196,6,8,205,191,196,26,119,947 
6150 DATA 245,205,74,196,241,119,19,205, 1304 
6160 DATA 74,196,16,242,225,209,19,193,1174 
6170 DATA 205,150,196,11,120,177,32,219,1110 
6180 DATA 201,197,213,229,205,9,196,6,1256 
6190 DATA 8,205,182,196,213,26,205,106,1141 
6200 DATA 196,205,93,196,36,209,19,16,970 
6210 DATA 243,225,209,193,11,19,205, 139, 1244 
6220 DATA 196,205,139,196,120,177,32,217,1282 
6230 DATA 201,205,27,196,229,38,0,111,1007 


6240 DATA 41,41, 41,237,91,54,92,25,622 

6250 DATA 235,225,201,26,254,32,56,3, 1032 
6260 DATA 254, 128,216,207,10,197,68,77,1157 
6270 DATA 120, 230, 24, 246, 64, 103, 120,230, 1137 
8280: DATA 7,7, 157147, 7 129, 141,282 

6290 DATA 229,217,209, 122,230, 24,203, 47, 1281 
6300 DATA 203, 47,203,47,198,88,87,217,1090 
6310 DATA 193,201,36,124,230,7,192,62,1045 
6320 DATA 32,133,111,216,124,214,8,103,941 
6330 DATA 254,88,216,207,4,122,203,63,1157 
6340 DATA 178,119, 44, 123, 203,39,179,119,1004 
6350 DATA 45,201,197,6,8,17,0,0,474 

6360 DATA 23, 48,11,203,19,203,18,55,580 

6370 DATA 203,19,203,18,24,9,203,19,698 , 
6380 DATA 203,18,167,203,19,203,18,16,847 
6390 DATA 231,193, 201, 44, 192,62,8,132, 1063 
6400 DATA 103, 254,88, 216,207,4,125,254,1251 
6410 DATA 223,32,11,46,0,62,8,132,514 

6420 DATA 103,254,88,216,207,4,44,32,948 
6430 DATA 4, 46, 32, 24, 240, 125,230, 31,732 

6440 DATA 192,125, 198,32,111,201,217,8,1084 
6450 DATA 18,19, 18,19,8,217,201,8,508 

6460 DATA 217,18,1,32,0,235,9,119,631 

6470 DATA 237,66,35,8,125,230,31,32,764 

6480 DATA 1,9,235,217,201,0,0,0,663 


COC 1G0o FAA DS AA 
CAR OA OO Era 1. 
MENOR TIRA. 


INTRODUCE UNA CINTA VIRGEN EN EL 


CASETE Y PONLO EN POSICION DE 
GRABACIÓN (RECORD Y PLAY), 


PULPA . ra TECLA 
SU A ra o O Lo MA O AS 


Si el programa número 4 se ha ejecutado 
bien, nos aparecerá esto en pantalla. 


PARTE de la presenta- 
ción general del do- 
cumento, ya comen- 
tada, es importante 
diseñar cuidadosa- 
mente el cuerpo del 
impreso para minimi- 
zar los riesgos de 
errores y obtener el máximo interés de las 
personas que han de cumplimentar el 
cuestionario. 

Hay que seleccionar y preparar cuida- 
dosamente las preguntas, y pensar, 
cuándo se van a plasmar en un formula- 
rio concreto, en las actividades que pos- 
teriormente haya que realizar con esa in- 
formación: codificación, transcripción, 
etcétera. 

Respecto del conjunto de las pregun- 
tas, es del máximo interés tener en cuen- 
ta varios aspectos: 


a) Limitar el número de preguntas, 
porque un cuestionario excesivamente 
largo resulta tedioso de rellenar (e inclu- 
so puede ser complicado). 

b) Incluirtodos los datos a obtener; la 
razón es obvia. Queremos subrayarlo, sin 
embargo, pues siempre hay que encon- 
trar un punto medio de compromiso con 
la limitación anterior, para que, obte- 
niendo todos los datos necesarios se in- 
tenten condensar las informaciones y no 
producir un cuestionario excesivamente 
largo. 

c) Incluir preguntas de comproba- 
ción. Se consideran tales las que no 
aportan información adicional, sino que 
se añaden para contrastar los datos ya 
incluidos en otras preguntas cuya infor- 


TECNICAS DE ANALISIS 


DOCUMENTO DE TOMA DE DATOS 


mación es básica en el proceso de que 
se trate. Si las preguntas fundamentales 
son claras, se pueden eliminar las pre- 
guntas de comprobación, por brevedad; 
pero en muchos otros casos son de gran 
utilidad. 


d) Ordenar cuidadosamente las pre- 
guntas. Hay que procurar que el propio 
orden de las preguntas ayude a quien ha 
de responder a dar sus contestaciones. 
Es importante evitar dar «saltos», en el 
cuestionario y, por el contrario, abordar 
los temas sistemáticamente y de tal 
modo que se planteen primeramente las 
preguntas genéricas, para descender 
después a detalles (excepto que las pre- 
guntas genéricas sean de «integración»: 
es decir, que su respuesta se «deduzca» 
de los datos parciales aportados en las 
preguntas de detalle, en cuyo caso el or- 
den debe ser el inverso). 

e) Incluir preguntas de «descanso». 
Estas se refieren a temas menores o de 
respuesta más evidente: con eso, la per- 
sona que responde el cuestionario relaja 
la tensión a que le pueda someter una 
«batería» de preguntas importantes se- 
guidas. Hay que tener en cuenta en este 
caso, también, el comentario hecho an- 
teriormente sobre la brevedad del formu- 
lario. 


Por otro lado, hay que estudiar cuida- 
dosamente cómo se plantean las pre- 
guntas. Se pueden diseñar preguntas 
abiertas (de contestación libre), pregun- 
tas tipo «menú» (se sugieren numerosas 
respuestas, aunque se suele dejar siem- 
pre una última opción para respuestas 
adicionales libres) o preguntas de tipo 


cerrado (hay que elegir una respuesta 
entre las que se ofrecen). Conviene que 
las preguntas se diseñen, siempre que 
sea posible, de tipo cerrado o, alo sumo, 
de «menú». Incluso, si se puede, es útil 
tender hacia preguntas que requieran 
una contestación binaria (sí, no). 

Sin embargo, conviene en todo mo- 
mento que primen sobre los comentarios 
anteriores la consideración de las condi- 
ciones básicas que deben cumplir las 
preguntas: que sean claras y no ambi- 
guas, que sean breves y concisas, que 
sean fácilmente entendibles, etc. 

Respecto del espacio reservado para 
las respuestas y para la codificación de 
los datos (si ha lugar) deben tenerse en 
cuenta algunas consideraciones adicio- 
nales: 


a) La zona de las respuestas debe ser 
suficientemente amplia para contener 
cuanto necesite poner la persona que 
debe responder el cuestionario, aunque 
suele ser útil limitar la longitud de las res- 
puestas, en la medida de lo posible. 

b) Hay que tener cuidado para que el 
espacio reservado a la respuesta no in- 
duzca a error (o duda) a quien debe con- 
testar. Por ejemplo, una zona donde 
debe ir un teléfono debe tener previsto 
espacio para el prefijo provincial (aun- 
que luego, de hecho, la mayoría de res- 
puestas no lo incluyan); una zona donde 
se debe responder una cifra debe tener 
una longitud suficiente para el mayor nú- 
mero aceptable como respuesta, etc. 

c) Aunque a veces es útil marcar las 
posiciones de cada letra o número (me- 
diante cuadros o pequeñas rayas verti- 
cales), hay que procurar no constreñir las 
respuestas por este motivo. 

d) La zona reservada a las respuestas 
debe aparecer inmediata a la pregunta, 
para que quien responda el cuestionario 
no dude dónde debe contestar. 

e) Si alguna pregunta va a ser codifi- 
cada posteriormente o si se va a incluir 
después algún código o dato adicional 
a partir de las respuestas dadas, la zona 
prevista para estos códigos o informacio- 
nes adicionales debe estar claramente 
marcada (quizá otro color o un sombrea- 
do sea la solución) para que nunca sea 


utilizada por quien contesta el cuestiona- 
rio. 


Por otro lado, respecto de las codifica- 
ciones establecidas (y las áreas del for- 
mulario destinadas a recibirlas) deben 
tenerse en cuenta algunas condiciones: 

a) Hay que procurar que el espacio 
destinado a las codificaciones esté con- 
tiguo al área donde se incluirán las res- 
puestas. 

b) Siempre que se pueda, se deben 
incluir los valores de los códigos junto al 
espacio reservado a la codificación (aun 
teniendo en cuenta los comentarios ya 
hechos sobre la inclusión de notas, ins- 
trucciones, etc., en el cuerpo del impre- 
$0). 

c) Cuando sea posible (especialmen- 
te en las preguntas tipo «menú» o cerra- 
das y en las de respuesta binaria) con- 
viene pedir directamente a quien con- 
teste el cuestionario que codifique las 
respuestas, mediante las clásicas expre- 
siones «táchese la que no proceda», 
«Mmárquese con una cruz la respuesta 
correcta», etc., pues, aparte de evitar 
una manipulación posterior del docu- 
mento, elimina causas de error. 


Por último, conviene comentar la nece- 
sidad de tener en cuenta, cuando se di- 
señe un documento de toma de datos, 
cómo se han de transcribir los datos pos- 
teriormente y, para ello: 


a) Prever que los datos sean transcri- 
tos en el orden en que aparecen en el 
cuestionario. 

b) Hacer el diseño de tal modo que el 
transcriptor no deba «andar recorriendo» 
con la vista el documento, sino que los 
datos aparezcan relativamente agrupa- 
dos. 

c) Que se incluyan indicaciones para 
transcripción (número de columnas de 
registro, comienzo o final de registro, 
marcas adicionales de identificación, 
etcétera. 


En general, hay que procurar que to- 
das las tareas que comporta la toma de 
datos (contestación del cuestionario, co- 
dificación, transcripción, etc.) sean lo 
más automáticas posible para minimizar 
la comisión de errores. 


L segundo elemento 
fundamental de la 
programación «bien 
estructurada» es la 
instrucción condicio- 
nal, de la que existen 
varias formas posi- 
bles. La más general 


es la siguiente: 


SI condición 
ENTONCES acción. 1 
EN.CASO.CONTRARIO acción.2 


es decir: «si se cumple cierta condición, 
se ejecuta acción.1. Pero si no se cum- 
ple, se ejecuta acción.2». 

El organigrama de esta instrucción con- 
dicional es el siguiente: 


Normalmente, la condición que ar»are- 
ce en una instrucción condicional puede 
ser cualquier expresión de resultado ló- 
gico, como las que vimos en el capítulo 
12, que pertenecían a dos grupos princi- 
pales: comparaciones entre expresiones 
de cualquier tipo, o unión mediante fun- 
ciones lógicas de dos o más expresiones 
lógicas cualesquiera. 


TECNICAS 
DE PROGRAMACION 


INSTRUCCIONES CONDICIONALES 


En cambio, los elementos ejecutables 
(acción.1, acción.2) representan instruc- 
ciones de cualquier clase: asignaciones, 
instrucciones condicionales, bucles, blo- 
ques secuenciales, llamadas a subruti- 
nas, instrucciones de transferencia, órde- 
nes de entrada o de salida... Una instruc- 
ción que pueda efectuarse de modo in- 
dependiente en otro lugar del programa 
puede ser siempre parte de una instruc- 
ción condicional, ya sea como acción. 1 
o como acción.2. 

En particular, cualquiera de las dos ins- 
trucciones ejecutables que forman parte 
de una instrucción condicional (o las dos 
al mismo tiempo) puede ser una instruc- 
ción condicional. Esto significa que las 
instrucciones condicionales pueden en- 
cadenarse para formar estructuras más 
complicadas. Veamos algunos ejemplos: 


SI condición. 

ENTONCES SI condición.2 
ENTONCES acción. 1 
EN.-CASO.CONTRARIO acción.2 

EN.CASO.CONTRARIO acción.3 


cuyo organigrama es: 


SI condición.1 ENTONCES acción.2 ) 
ENTONCES acción. 5 EN.-CASO.CONTRARIO acción.3 
EN-CASO.CONTRARI 

SI condición.2 cuyo organigrama es: 


SI condición. 1 SI condición.3 
ENTONCES SI condición.2 ENTONCES acción.3 
ENTONCES acción. 1 EN.-CASO.CONTRARIO acción.4 


EN-CASO.CONTRARIO acción.2 


EN.CASO.CONTRARIO cuyo organigrama es: 


2 TECNICAS DE PROGRAMACION 


La instrucción condicional podría com- 
plicarse aún más, introduciendo nuevos 
términos condicionales en lugar de cual- 
quiera de las acciones anteriores. Tam- 
bién puede simplificarse, prescindiendo 
de la parte EN-CASO.CONTRARIO, con lo 
que la instrucción quedaría reducida a: 


SI condición 
ENTONCES acción 


cuyo organigrama es: 


y que puede describirse así: «si se cum- 
ple la condición, ejecutar la acción, 
pero no hacer nada si la condición no se 
cumple». 

También pueden mezclarse las instruc- 
ciones condicionales reducidas con las 
completas, como en el siguiente ejem- 
plo: 

SI CONDICION. 1 

ENTONCES acción.1 
EN.CASO.CONTRARIO 


10 INPUT X,Y 


30 PRINT Z 


Este programa lee los valores de las 
dos variables X e Y y, en función de los 


20 IF X=0 THEN IF Y=0 THEN LET Z=0 
ELSE IF Y=1 THEN LET Z=1 
ELSE LET Z=2 

ELSE IF X=1 THEN LET Z=3 

ELSE LET Z=4 


SI condición.2 
ENTONCES acción.2 


cuyo organigrama dejamos como ejerci- 
cio al lector. | 

Consideremos también el siguiente 
ejemplo: 


SI condición. 1 
ENTONCES SI condición.2 
ENTONCES acción.1 
EN.CASO.-CONTRARIO acción.2 


Tenemos aquí dos instrucciones condi- 
cionales, una de las cuales está incom- 
pleta. Pero, ¿a cuál de ellas pertenece 
la cláusula EN.CASO.CONTRARIO? Podría 
ser a la primera, pero también podría ser 
a la segunda. En general, esto depende 
del lenguaje de programación de que se 
trate. Volveremos sobre ello más adelan- 
te. 

Veamos ahora cómo se programan las 
instrucciones condicionales en los tres 
¡'enguajes que estamos utilizando como 
elemento de comparación: BASIC, PAS- 
CAL y APL. 

En BASIC se utilizan las palabras reser- 
vadas inglesas IF, THEN y ELSE para repre- 
sentar lo que hasta ahora hemos llama- 
do SI, ENTONCES y EN-CASO-CONTRARIO. 
Por tanto, la forma más general de la ins- 
trucción condicional será: 


IF condición 
THEN acción. 1 
ELSE acción.2 


Veamos un ejemplo de un programa 
BASIC que utiliza una instrucción condi- 
cional relativamente compleja: 


mismos, calcula el valor de Z en la ins- 


trucción 20, cuyo organigrama es: 


Obsérvese que el organigrama corres- 
ponde a una sola instrucción BASIC. En el 
programa hemos descompuesto la ins- 
trucción en cinco líneas diferentes, con 
objeto de que apareciera clara la estruc- 
tura de la instrucción y la relación de las 
diferentes partes THEN y ELSE entre sí. En 
definitiva, la instrucción 20 realiza la si- 
guiente función: 


— Hacer Z=0 si X e Y son iguales a 0. 

— Hacer Z=1 si X es O, pero Y es 1. 

— Hacer Z=2 si X es 0, pero Y no es ni 
Onil. 

— Hacer Z=3 si X es 1, cualquiera que 
sea Y. 

— Hacer Z=4 si X no es ni 0 ni 1, cual- 
quiera que sea Y. 


Vamos a ver que, efectivamente, el 
programa funciona así, ejecutándolo va- 
rias veces para distintos valores de X e Y. 
Cada vez que aparece la palabra RUN, 
comienza de nuevo a ejecutarse el pro- 
grama. Las líneas que comienzan por una 
interrogación contienen nuestras res- 
puestas a la petición de los datos X e Y 
(en este orden, separados por una 
coma). La línea siguiente contiene el va- 
lor que la instrucción 20 ha calculado 
para Z, que ha sido escrito en la pantalla 
por la instrucción 30 del programa. La 


palabra Ok aparece cada vez que el pro- 
grama termina de ejecutarse con exito. 


2 TECNICAS DE PROGRAMACION 


En BASIC, la instrucción condicional 
puede ser incompleta: 


IF condición 
THEN acción. 1 


De hecho, la forma más frecuente que 
adopta este tipo de instrucción en los 
programas BASIC es aquélla en que «ac- 
ción.1» se sustituye por una instrucción 
de transferencia: 


IF condición THEN GOTO nnnn 


donde nnnn es un número de línea. El 
efecto de esta instrucción es provocar un 
salto de la ejecución a la línea número 
nnnn si se cumple la condición indicada, 
mientras que la ejecución continuará 
con la instrucción siguiente a la condi- 
cional si la condición no se cumple. En al- 
gunos intérpretes o compiladores BASIC, 
la instrucción anterior puede simplificar- 
se asi: 


IF condición GOTO nnnn 
o también de la siguiente manera: 
IF condición THEN nnnn 


Veamos ahora un ejemplo de una ins- 
trucción condicional cuya condición es 
relativamente compleja: 


IF (X<3) OR (X>6) THEN GOTO 2600 


Esta línea transfiere control a la línea 
de número 2600 si el valor de la variable 
X es menor que 3 o mayor que 6. 

¿Cómo se interpreta en BASIC la mez- 
cla de dos instrucciones condicionales, 
una completa y la otra incompleta, que 
mencionamos más arriba? La forma que 
adoptaría sería la siguiente: 


IF condición. 1 
THEN IF condición.2 
THEN acción. 1 
ELSE acción.2 


Pues bien: en BASIC, en un caso como 
éste, se supone que la cláusula ELSE va 
siempre emparejada con la cláusula 
THEN más próxima que no tenga pareja. 
Por tanto, el organigrama correspondien- 
te a ese ejemplo sería el siguiente: 


+ | s 


y es el primer THEN de la instrucción el 
que se queda sin pareja. 

Por último, veamos cómo se puede in- 
troducir un bloque secuencial en una ins- 
trucción condicional BASIC: 


IF 1=68 THEN CLS : X=X+1 : Y=Y+1 


cuyo organigrama es: 


si Borrar la 
pantalla 
Hacer 
X=X +4 


'O Inventario 


RESENTAMOS en este 
capítulo un ejemplo 
sencillo para facilitar 
la comprensión de 
las hojas de cálculo y 
en concreto del Mul- 
tiplan. Nuestro ejem- 
plo se va a basar en 
la realizacion de una hoja de activo y pa- 
sivo, lo que se suele conocer con el nom- 
bre de inventario. 

Se trata de un formulario muy frecuen- 
te, cuya configuración básica puede en- 
contrarse en cualquier libro de contabili- 
dad. Hay que ir rellenando la columna de 
parciales y calculando cada uno de los 
totales hasta obtener el total activo y el 
pasivo. Restando éstos se obtendrá el 
capital líquido. 


TI MNVWVENTAR IO 


IMPORTES 
PARCIALES TOTALES 


MOBILIARIO 
Valor actual con reducción 
10 por 100 por amortización 


Valor nominal de una L/. a 15 
dias fecha 


Juan Martíñez,de Bilbao 
Francisco Pérez, de Madrid 


TOTAL ACTIVO 


APLICACIONES 


MULTIPLAN: EJEMPLO 


Para transferirlo a la hoja de cálculo, 
vamos a procurar mantener su forma, ya 
que así facilitaremos la tarea de cumpli- 
mentar los datos a los usuarios. Esto, que 
puede parecer carente de importancia, 
es una de las premisas que deben seguir- 
se para que el trabajo realizado en el or- 
denador no produzca errores. Si pensa- 
mos en el cambio de mentalidad que 
contables y empresarios han tenido que 
sufrir para adaptarse a la informática, de- 
bemos comprender la importancia de 
conseguir que ésta se asemeje a las fór- 
mulas preestablecidas en sus campos de 
trabajo; de aquí la importancia de con- 
seguir que la hoja de cálculo que haya 
en activo y pasivo tenga la estructura del 
formulario correspondiente que el conta- 
ble ha rellenado toda la vida. 

Comenzamos por crear con literales 
(comando Alfa) el esquema de cómo va 
a ser nuestra hoja de trabajo. 


IMPORTES 
PARCIALES TOTALES 


VARIOS 
Pedro García, de Sevilla 
Lucindo Ríos 
Anoela Chanino 


Valor nominal de un L/, 
dias fecha 


Por el capital inicial 


PERDIDAS Y GANANCIAS 
Beneficio en el presente 


TOTAL PASIVO 


RESUMEN 


30 APLICACIONES 


Observamos que la longitud de algu- 
nas celdas ha tenido que ser cambiada 
para que los literales se vean completa- 
mente. Por otra parte hay que reseñar 
que las celdas que son iguales se obtie- 
nen por copia de otras, ya que no es ne- 
cesario volver a realizarlas. 

Una vez terminada esta fase se pasa al 
perfeccionamiento de la hoja: 


— Separación de las columnas parcia- 
les y totales, generando columnas (co- 
mando Genera) que se reducen a tres 
caracteres de longitud (comando For- 


TINVWENMNTAR IO 


' 
INVENTARIO FINAL | 
AE IAE 


MOBILIARIO. S.o.ooooocoooooocscos 
Valor actual con reducción 
10 por 100 por amortización 


Valor nominal de una L/. a 15 
dias fecha 


DEUDORES VARIOS... .o.o.moo.o 0% 
Juan Martínez, de Bilbao 
Francisco Pérez,de Madrid 


TOTAL ACTIVO 


Evidentemente estamos logrando que 
el formulario tenga aspecto muy seme- 
jante al real. 


Una vez preparado el esquema pode- 
mos pasar a la introducción de fórmulas. 
Para ello utilizamos el comando Edit. Ob- 
servará que el simple movimiento del 
cursor hace aparecer en la fórmula el 
nombre de la celda. 


Las fórmulas de este ejemplo están 


mat/Longitud) e introduciendo las líneas 
correspondientes a la separación (co- 
mando Alfa). 


— Para crear la línea vertical se pue- 
de utilizar el comando Replicar/Vertical 
que copia tantas veces como se le indi- 
que el contenido de la celda señalada. 


— Asimismo hay que variar la longitud 
de algunas celdas para que los literales 
se vean completamente. Las columnas 
anchas tienen una longitud de 30 carac- 
teres. 


Pedro García,de Sevilla 
Lucindo Ríos 


Beneficio en el presente 


TOTAL PASIVO 


TOTAL ACTIVO 
TOTAL PASIVO 


CAPITAL LIQUIDO 


— o o e e 5 5 1 5 5 5 7 7 € 0 € 5 o 5 e o 


O a 


compuestas por fórmulas con operacio- 
nes aritméticas sencillas (+ y -), y la fun- 
ción suma (:), que permite sumar un ran- 
go de celdas. 

En principio, como no se han introduci- 
do datos, aparece en la celda en la que 
se introduce la fórmula un cero. Si quere- 
mos ver en la pantalla las fórmulas, po- 
demos utilizar el comando format para vi- 
sualizar en pantalla las fórmulas, adquiri- 
rá la siguiente forma: 


"E 


SUMA (R | -23]C:R1-6]C)* 


A A AA A e e a 
-= 


MANDATO: Alfa Blan Clasif Direc Edit Format Genera HoAyu Imprimir Limit 
Mov Homb Opcion Proteg Quitar Replic Salir Transf Valor Xterno 
Seleccionar opción o pulsar inicial de mandato 


RAC3 


=> L MWERTAR TC) 


j 
INVENTARIO FINAL | 
A A E 


PARCIALES | TOTALES 


CA avp ro 13180 
Existencias en efectivo 


MERCADERIAS... .oooooooooconcoo. 1 28320 
Valor existencias almacén: 
E TA hs + 


Material Beurscciaoa 
MOTA cacon 


MOBILIARIO. ......o.o.. bos DL A 
Valor actual con reducción 
10 por 100 por amortización 


EFECTOS A COBRAR. .....o..... a 
Valor nominal de una L/. a 15 
vias fecha 


DEUDORES VARIOS. ....o.oomomoso.o 
Juan Martínez, de Bilbao 
Francisco Pérez, de Madrid 


A 


982 Libre ML Muitiplan: B: INVERTA 


Podemos pasar a la comprobación del funcionamiento con datos conocidos o ar- 
chivos históricos. 


ACREEDORES VARIOS. ..... . 14500 
Pedro García, de Sevilla 

Lucindo Rfos 

Anoela Chanino 


EFECTOS A PAGAR. oooscosonooons 


Valor nominal de un L/. a 60 
dias fecha 


Por el capital inicial 


PERDIDAS Y GANANCIAS. ......... 
Beneficio en el presente 


TOTAL ACTIVD..oooconoco.. 
TOTAL PASIVO. . 


a APLICACIONES 


Una vez asegurados del funcionamien- 
to podemos poner la hoja en manos del 
usuario, no sin antes cumplimentar la 
adecuada documentación de genera- 
ción y uso, así como cerciorarse de la 
protección de las celdas cuyo contenido 
es una fórmula. 


u í 
1 ST INVENTARIO 
2 


3 | 
4 INVENTARIO FINAL | 
A 


13 Valor existencias almacén: 
14 Material A. 

15 Material B 

16 Material €. 

11 

18 MOBILIARIO. 

19 Valor actual con reducción 
20 10 por 100 por amortización 
PROTEGER: Celdas Formulas 


Seleccionar opción o pulsar 1nic1al de mandato z 
R1205  SUMA(R[+2]C[-2):R[+4)C[-2)) 982 Libre IL Multipian: B:HOY 


$ 1 
1 ST INVENTARIO 
? 


13 Valor existencias almacén: 
E AA 
15 Material B. 
16 Materzal C. 
: YM 
18 MOBILIARIO. 
19 Valor actual con reduccion 
20 10 por 100 por amortización 


Introdacir nombre de archivo 


RiC1 "ST INVENTARIO" 981 Libre WL Multiplan: B: INVERTA 


Ya se puede utilizar la hoja, por ejem- 
plo, se cambian algunos de los valores 
introducidos previamente. Siel comando 
Recalcular no se encuentra activo, hace- 
mos referencia a él para que todos los 
valores y resultados se actualicen. 

Una vez mostrado el ejemplo, pasamos 
a detallar un punto importante: la impre- 
sión de la hoja. 


; 


18 
19 
20 
21 
te 
23 
a 
25 
26 
a 
28 
14] 
Y 
34 
E 
3 
E 
35 


e e, A IS o E A E SS Cr er. Mo 
. 


OPCIONES recalcular: Sí Mo alarma: Mo(Sí) 
jteración: Sí(Mo) terminacion en: 
Seleccionar opcion 
R35C12 982 Libre NL Multiplan: B:HOY 


Si observamos la longitud en caracte- 
res excede en mucho la longitud habi- 
tual de una impresora. Para remediar 
esto y poder imprimir todo el modelo te- 
nemos que recurrir a las siguientes posi- 
bilidades que en general son aplicables 
a los restos de las hojas de cálculo: 

Se aconseja, en primer lugar, utilizar el 
modo de impresión comprimida, éste 
puede obtenerse de las siguientes for- 
mas: 


— Mediante un programa adicional 
que se carga al principio de la sesión de 
trabajo y actúa como programa residen- 
te en memoria, permitiendo alteraciones 
en la impresión: modo comprimido, tipo 
de letra, doble impresión, líneas por pá- 
gina, caracteres por pulgada, etc. 

— Mediante opciones de la misma 
hoja (no existen en Multiplan) que permi- 
ten el modo comprimido. 

— Mediante el envio de los caracteres 
de control de la impresora correspon- 
diente, varían de una impresora a otra, 
pero son típicos los siguientes: 


Alt 15 para letra comprimida. 
Alt 14 para letra expandida. 
Alt 12 para restaurar. 


Como paso adicional en el Multiplan te- 
nemos que indicar el número de carac- 
teres que deseamos que tenga la hoja. El 
comando correspondiente es Impri- 
mir/Márgenes. En el ejemplo para el mo- 
delo final se ha utilizado una longitud de 
130 caracteres, dejando en el margen iz- 
quierdo sólo dos caracteres. 

Por último, mostraremos el listado de la 
hoja de trabajo del ejemplo: 


"ST INVENTARIO" 


"INVENTARIO FINAL Le 


"ACTIVO" 


SR SL A 


e E A A 


" Existencias en efectivo" 


"MERCADERIAS. marosan ondo ro 
" Valor existencias almacén:"” 
"Material A.oooonmmnonenssnnssa” 
"Material Biisoroon.om”.monmanosa” 
"Material Cossoracinonasncrinnas * 


A e AA AR AA 
"Valor actual con reducción" 3 
"10 por 100 por amortización" 


PREGCTOS ACCUBRAN: +2 as aaa o 
“Valor nominal de una L/. a 15" 
"dias fecha” 


"DEUDORES VARIOS. + +<0 0d as me ñs 
"Juan Martinez,de Bilbao" 
"Francisco Perez, de Madrid" 


1 
a 
A A A a dl 


” Im" "POR ” "TES" 
"PARCIALES" Ys ATOTVALED" 


SS 


SUMA (RE+Z2JCL-21:RC+. 
4JCL-21) 


SUMA (R[+1ICL[-27:R[+ 
L£iCL= 2 


SUMA (RE-23]C:RL[-61C 


PASCAL 


UANDO estudiamos 
en qué casos un pro- 
cedimiento o función 
podía llamar a otro, 
vimos que era posi- 
ble que se llamaran a 
sí mismos; cuando un 
procedimiento o fun- 
ción utiliza esta posibilidad, se dice que 
es «recursivo». Vamos a ver cómo funcio- 
na este tipo de subprograma por medio 
del ejemplo que casi siempre se utiliza 
para ello: 

Supongamos que hubiera que progra- 
mar la función matemática «factorial». El 
factorial de un número entero N se escri- 
be como N! y es igual al producto de N 
por N-1 por N-2... hasta llegar a 1. Por 
ejemplo: 


4! es 4. 

2! es 2 por 4, igual a 2. 

3! es 3 por 2 por 4, igual a €. 

4! es 4 por 3 por 2 por 4, igual a 24. 


Como se puede ver, el factorial de un 
número cualquiera es igual a él mismo 
multiplicado por el factorial del número 
anterior: 


2! es igual a 2 por 4! 
3! es igual a 3 por 2! 
4! es igual a 4 por 3! 
5! es igual a 5 por 4! 


Por ello, el programa para calcular el 
factorial de, digamos, 10, seria: 


4 — Calcular el factorial de 9. 
2 — Multiplicarlo por 10. 


PROCEDIMIENTOS RECURSIVOS 


a su vez, el punto 1 (calcular el factorial 
de 9) sería: 


A — Calcular el factorial de 8. 
B — Multiplicarlo por 9. 


y así hasta llegar a «calcular el factorial 
de 1» que consistiría simplemente en to- 
mar un 1. Un programa PASCAL con esta 
estructura debería tener una función 
para calcular el factorial de 10, otra para 
el de 9, etc.; evidentemente es una for- 
ma poco práctica de programar (imagi- 
nemos cómo sería para el factorial de 20, 
30...). Sería más interesante tener una 
función única a la que se pasara como 
parámetro el número cuyo factorial de- 
seamos; el programa para calcularlo se- 
ría algo así: 


«Calcular el factorial del parámetro»: 
— Si el parámetro vale 1 devolver 41 y 
si no: 
4 — Calcular el factorial 
del parámetro menos 4. 
2 — Multiplicarlo por el propio 
parámetro y devolverlo. 


y para ejecutar el punto 1 se utilizaría 
exactamente el mismo programa, pero 
pasándole como parámetro el original 
menos 1. 

Esto es lo que se denomina un progra- 
ma recursivo, pues en la descripción de 
sus pasos se hace referencia (o se utili- 
za) a sí mismo. 

El PASCAL permite la escritura de pro- 
cedimientos y funciones recursivos sin 
más, por las buenas: 


program Recursivo; 


var 
Número: integer; 


begin 


else 


end. 


Se ha utilizado el tipo real para poder 
obtener resultados mayores de los posi- 
bles con el tipo integer (el factorial de 
cero vale 1 y por ello se ha utilizado la 
comparación «menor o igual»). 

Vamos a explicar de manera resumida 
cómo es posible que una función (o pro- 
cedimiento) se llame a sí misma: 

Imaginemos que se ejecuta Factorial 
(3). En el momento de llamar a la función 
se toma una porción de memoria para la 
variable local N en la que se guarda un 3. 

Posteriormente, y ya dentro de la fun- 
ción, como N es mayor que 1 se ejecuta 
Factorial (N-1); por ello se toma una nue- 
va porción de memoria para N y en ella 
se guarda un 2 (como todavía no se ha 
regresado al programa principal, la por- 
ción que se tomó para guardar el 3 sigue 
ocupada). 

Al ejecutarse Factorial (2), cada vez 
que aparece N, el PASCAL busca la más 
reciente porción de memoria con ese 
nombre, que es la que alberga un 2. Allí, 
al ser N otra vez mayor que 1, se ejecuta 
Factorial (N-1) tomándose una nueva 
porción de memoria para N, en la que se 
guarda un 1. 

Con Factorial (1), y debido a la instruc- 
ción IF, se devuelve 1.0 y se acaba su eje- 
cución. Entonces se libera la memoria en 
que se guardó el 1 y se vuelve al punto 
desde el que se llamó, es decir, en me- 
dio de la ejecucción de Factorial (2). 


On 


function Factorial (N:z integer): real; 
if N <= 1 then Factorial:= 1.0 


Factorial:= Factorial (N-1) 


id (Número? ”); readlin (Numero); : 
write ("Su factorial vale: >” ,Factorial (Número) ); 


e 


aga $ 


Allí, el resultado de Factorial (1) se mul- 
tiplica por el valor de N que, al haberse 
liberado la memoria que guardaba el 1, 
es de nuevo 2. Tras esto se acaba la eje- 
cución de Factorial (2) recuperándose la 
memoria en que se guardó el 2 y devol- 
viéndose 1.0* 2 al punto medio de Facto- 
rial (3). 

Entonces, 2.0 se multiplica por 3 (pues 
ahora la más reciente porción de memo- 
ria con el nombre N es la que contiene 
un 3) y se devuelve 6.0 como resultado 
de Factorial (3), quedando libre la me- 
moria en que se guardó el 3. 

Por supuesto, la posibilidad de escribir 
procedimientos recursivos se debe en 
gran parte a la existencia de variables lo- 
cales (es decir, aquéllas que se crean en 
el momento de llamarse a un procedi- 
miento y cuya memoria queda libre tras 
ejecutarse éste). 

La necesidad de memoria puede lle- 
gar a ser grande, pues la cantidad utili- 
zada para variables locales aumenta 
cada vez que se profundiza en la recur- 
sión. Así, con Factorial (30) se llegaría a 
tener en un momento dado 30 variables 
N ocupando espacio de memoria. Por 
ello, al escribir un procedimiento seme- 
jante debe comprobarse que no se va a 
seguir llamando a sí mismo indefinida- 
mente. En el caso de Factorial esto está 
garantizado por la instrucción IF. 

Hay muchos problemas de programa- 


3 PASCAL 


ción cuya respuesta se plantea de forma 
recursiva y ahí el empleo de procedi- 
mientos recursivos simplifica enorme- 
mente su solución; ejemplos típicos son 
los programas compiladores y los de ges- 
tión de bases de datos. Sin embargo, de- 
bido a la mayor cantidad de memoria 
que emplean y a la pérdida de tiempo 
que supone reservar y liberar memoria 
cada vez, deben utilizarse con precau- 
ción y sólo en los casos en que una pro- 
gramación no recursiva sea poco ade- 
cuada o impracticable. 

La función factorial se puede calcular 
de manera no recursiva mucho más efi- 
cientemente utilizando un bucle para 
multiplicar N por N-1 por N-2... por 1: 


«Calcular el factorial del parámetro»: 
4 — Guardar 41.0 en la variable F. 
4 — Para | variando su valor desde 
2 hasta el parámetro hacer: 
-— Guardar en F su anterior valor 
multiplicado por el valor de |. 
3 — Devolver el valor de F. 


En el programa bastaría con sustituir la 
parte de la función por: 


Este método de calcular el factorial de 
un número es mucho más rápido y nece- 
sita menos memoria que el recursivo. 


um Nota para curiosos 


Aunque el BASIC, en principio, no per- 
mite programar algoritmos recursivos, 
con la mayoría de las versiones existen- 
tes sí es posible hacerlo simulando con 
tablas y punteros lo que, en lenguaje in- 
formático, se denomina «pila» para guar- 
dar ahí el equivalente a las variables lo- 
cales del PASCAL. El caso concreto del 
cálculo recursivo de la función factorial 
es tan sencillo que ni siquiera hace falta 
eso, como se ve en el siguiente progra- 


ma BASIC, más o menos equivalente al úl- 
timo ejemplo: 


40 CLS 

20 INPUT “Número”; N 
30 GOSUB 100 

40 PRINT N; “l = “;F 
50 PRINT 

60 GOTO 20 


90 REM 

400 IF N=4 THEN F=4: RETURN 
4410 N=N-4 

420 GOSUB 100 

1430 N=N+4 

440 F=N"F 

450 RETURN 


O Declaración anticipada 
de procedimientos 


A veces se dan recursiones «a varias 
bandas» que pueden no notarse a prime- 
ra vista, por ejemplo: 


al ejecutarse Fase-1, éste utiliza a 
Fase.2, que a su vez utiliza a Fase.1, etc. 
(Fase-2 está dentro del inmediato posee- 
dor de Fase.1). 

Ligeramente distinto sería este otro 
caso de «dos bandas»: 


CE 
>. A 
UN 


function Fun (1: Tal_Tipo): Tal_Otro; 
begin 


Fase 
end; 9 


En principio, no sería posible compilar 
este programa, pues sólo se puede utili- 
zar Fun desde detrás de su cabecera, y 
si se permutasen las posiciones de los 
subprogramas el problema se plantearía 
con Fase. 


procedure Fase; 
begin 

A:= Fun (Datol) 
end; 


function Fun; 
begin 
Fase 
end; + 


De esta manera, cuando el PASCAL en- 
cuentre la llamada a Fun dentro del pro- 
cedimiento Fase, ya tiene todo lo que 


function Fun (1: Tal_Tipo): Tal_Otro; forward; 


El PASCAL permite superar este proble- 
ma mediante la descripción anticipada 
de la cabecera de un procedimiento o 
función. Para ello, en un lugar suficiente- 
mente adelantado del programa se es- 
cribe la cabecera completa y la palabra 
reservada FORWARD («adelante») sepa- 
radas por un punto y coma. 


Posteriormente, y ya donde esté escri- 
to el procedimiento, se repite la cabece- 
ra sin poner la descripción de la lista de 
parámetros (si los hay) ni el tipo (si es una 
función): 


hace falta saber desde fuera para utilizar 
la función. 


N el programa que 
apareció en el tomo 
anterior se puede ver 
cómo se definen los 
campos en COBOL. 
Dicha definición se 
hace en la DATA DIVI- 
SION, que tiene dos 
secciones: 


— FILE SECTION. 
— WORKING-STORAGE SECTION. 


01 CONTADoRr 


21 IDENTIFICADOR. 
OS NOM-AFE. 
10 NOMBRE 
IN PELEAR 
e 10 APELLIDO 
0%. FILLER 
OS DIRECCION. 
10 CALLE 
20 FILDER 
10 CD 
10 FOSTAL 


El primer campo que se describe se lla- 
ma CONTADOR. Todo campo debe tener 
un número de nivel y si no se subdivide 
en otros se dice que es un campo indivi- 
dual y tendrá como número 01. 


PIC X(15) 

FTE VALUE SPACES. 

PIC X(30) 

PIC X(2) VALUE SPACES. 

PIC XC(3O 

PIE IA VALUE SPACES. 
VALUE 280. 


OTROS LENGUAJES 


DESCRIPCION DE CAMPOS 


Ambas secciones deben colocarse en 
el margen A. La primera sección se expli- 
cará más adelante junto con la ENVIRON- 
MENT DIVISION. 

Todos los campos de trabajo que se uti- 
licen en un programa deben aparecer 
en la WORKING-STORAGE. 

El COBOL permite describir estructuras 
de datos jerarquizadas. Esta jerarquía se 
fija con los números de nivel. Los núme- 
ros que se pueden utilizar están dentro 
del rango 01-49. 

Un ejemplo de la descripción de cam- 
pos es el siguiente: 


ZERO. 


Es obligatorio poner los números de ni- 
vel 01 en el margen A, pero el resto de ni- 
veles y nombres de campo deben ir en 
el margen B. 


El nombre de los campos puede tener 
como máximo treinta caracteres, debe 
comenzar con un carácter alfabético 
(A-Z) y el resto pueden ser dígitos, letras 
y guiones. 

Es conveniente que el programador dé 
a los campos nombres significativos, que 
mejoren la legibilidad del programa. 

Es importante también resaltar que nin- 
gún nombre dado por el programador 
debe coincidir con una palabra reserva- 
da. Palabras reservadas son todas aque- 
llas que son propias del lenguaje COBOL: 
PROCEDURE, FILE, ADD... 

El siguiente campo es IDENTIFICADOR. Es 
un campo compuesto. 

Los diferentes subcampos deben defi- 
nirse con números de nivel mayores. En el 
ejemplo, estos subcampos se han descri- 
to con los números 05 y 10, pero podían 
haber sido 02 y 03, etc. 

NOM-APE es un subcampo que a su vez 
comprende otros tres: NOMBRE, FILLER y 
APELLIDOS. 

Si en un programa se quisiera acceder 
sólo a los apellidos se haría referencia al 
campo APELLIDOS. Si se utiliza NOM-APE, 
se referencia el nombre y apellidos com- 
pletos. 

Con los números de nivel se puede ob- 
tener cualquier estructura de datos, esta- 
bleciendo todas las subdivisiones preci- 
sas. 

Detrás del nombre del campo apare- 
cerá la cláusula PIC, que define el tipo y 
la longitud del campo. 

Los dos caracteres más utilizados en la 
definición de los campos son: 


01 PERSONAL 
OZ COD-EMPLEADO 
02 NIM-EMPLEADO. 
10 APELLIDO-1 
10 APELLIDO-2 
10 NOMBRE 


10 CIUDAD 
10 COD-FPOSTAL 
S TELEFONO 


— 9, indica que el campo es numéri- 
co. Almacena un digito. 


— X, el campo es alfanumérico, pue- 
de contener letras y numeros. 


La longitud se determina por el núme- 
ro de 9's o X's que aparecen o por un nú- 
mero encerrado entre paréntesis. 

CONTADOR tiene una longitud de 2, 
APELLIDOS 30 y DIRECCION 36 (que es la 
suma de los subcampos que la forman). 

Los campos pueden inicializarse en la 
WORKING-STORAGE con la cláusula VA- 
LUE. 

Para simplicar esta operación existen 
ya algunas constantes con valores pre- 
definidos, llamadas constantes figurati- 
vas. Algunas de ellas son: 


— ZERO: Su valor es cero. 


— SPACES: Inicializa el campo con es- 
pacios en blanco. 


Por tanto, el valor inicial de CONTADOR 
es cero, el de los campos FILLER, espacios 
en blanco y el de COD 80. 

Para inicializar este último campo se ha 
utilizado una constante numérica y no 
una figurativa. 

En el ejemplo se pueden ver tres cam- 
pos con el mismo nombre: FILLER. Este es 
común para todos los campos que no 
van a ser utilizados a lo largo del progra- 
ma. De esta manera se evita el progra- 
mador el crear nuevos nombres. 

A continuación se muestra la composi- 
ción del registro de un fichero de perso- 
nal de una empresa. 


v EDICIONES y SIGLO y CULTURAL y 


